DateLimit (cDate) --> nil/old_cDate:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Functions:
~~~~~~~~~~
It is get-set function, (if activated without a parameter, it returns last
stored value, if activated with a parameter it is stored). If no date is set
it returns nil (the program will operate even without set date). If the set
date is less then system date the program is aborted after setting of the
password.

Parameter description:
~~~~~~~~~~~~~~~~~~~~~~
cDate: date as a text string (example: DateLimit("31.12.92"))

Return value:
~~~~~~~~~~~~~
nil

Example:
~~~~~~~~
 function Main(...)            //your program begin
   ...
   NetLimit(1)                 //one user at time
   DateLimit("31.12.99")       //program will be operatible till 31.12.1999
   ...
   object oD of Dbf init ...
   ...


Source code is in file  Object3.prg.